home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / SLIP / InterTIA Folder / TIA < prev   
Encoding:
Text File  |  1994-08-30  |  1.1 KB  |  60 lines  |  [TEXT/ISLP]
  1. !
  2. ! InterSLIP gateway script for NETCOM TIA
  3. !
  4. @originate
  5. matchclr
  6. matchstr 1 1 "ogin:"            ! match the "login:" prompt
  7. matchread 100
  8. note "no login prompt; trying again"
  9. write "\13"
  10. matchclr
  11. matchstr 1 1 "ogin:"            ! match the "login:" prompt
  12. matchread 200
  13. note "no login prompt; trying once more"
  14. write "\13"
  15. matchclr
  16. matchstr 1 1 "ogin:"            ! match the "login:" prompt
  17. matchread 300
  18. note "no login prompt; giving up"
  19. pause 60
  20. exit -1
  21. !
  22. @label 1
  23. note "Sending user name"
  24. write "^5\10"
  25. matchclr
  26. matchstr 1 2 "assword:"            ! match the "password:" prompt
  27. matchread 50
  28. note "no password prompt"
  29. pause 60
  30. exit -1
  31. !
  32. @label 2
  33. note "Sending password"
  34. write "^6\10"
  35. pause 20
  36. note "Awaiting shell prompt"
  37. matchclr
  38. matchstr 1 5 "% "            ! match the shell prompt
  39. matchread 120
  40. note "No shell prompt; trying again"
  41. write "\13"
  42. matchclr
  43. matchstr 1 5 "% "            ! match the shell prompt
  44. matchread 120
  45. note "No shell; giving up"
  46. exit -1
  47. !
  48. @label 5
  49. note "Starting TIA"
  50. write "tia\13"                ! start The Internet Adapter
  51. matchclr
  52. matchstr 1 6 "Ready"
  53. matchread 200
  54. note "TIA not responding"
  55. exit -1
  56. !
  57. @label 6
  58. note "OK"
  59. exit 0
  60.